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— TimeConvert.Mesa Edited by Sandman on August 5, 1977 8:38 AM 

DIRECTORY 

InlineDefs: FROM "inlinedefs" , 
StringOefs: FROM "stringdefs" , 
TimeDefs: FROM "timedef s" ; 

DEFINITIONS FROM TimeDefs; 

TimeConvert: PROGRAM IMPORTS StringDefs EXPORTS TimeDefs SHARES TimeDefs = 
BEGIN 

•-This should be a constant in TimeDefs, but... 
DefaultTime: PackedTime = PackedTime[0 , 0]; 
UP: TYPE = POINTER TO UnpackedTime; 

MonthTable: ARRAY [0..12] OF CARDINAL = 

[0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335, 366]; 
MonthNames: STRING = "JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC" ; 

DivideTime: PROCEDURE [num: PackedTime, den: CARDINAL] 
RETURNS [quotient: PackedTime, remainder: CARDINAL] = 
BEGIN OPEN In! ineDefs; 
t: CARDINAL; 

[quotient, highbits, t] «- LDIVMOD[num. highbi ts ,0 , den] ; 
[quotient. lowbi ts , remainder] <- LDIVMOD[num. lowbi ts, t , den] ; 
RETURN 
END; 

MultiplyTime: PROCEDURE [multiplicand: PackedTime, multiplier: CARDINAL] 
RETURNS [result: PackedTime] = 
BEGIN OPEN InlineDefs; 
t: CARDINAL; 

result, highbi ts ♦- multipl icand . highbits * multiplier; 

[result. lowbi ts, t] «- LongMul t[mul tipl icand . lowbi ts, mul tip! ier] .product ; 
result . highbits «- resul t . highbits + t; 
RETURN 
END; 

AddTime: PROCEDURE [a: PackedTime, b: CARDINAL] RETURNS [PackedTime] = 
BEGIN 

t: CARDINAL = a. lowbits; 
a. lowbits ♦• a. lowbits + b; 

IF a. lowbits < t THEN a. highbits «- a. highbi ts + 1 ; 
RETURN[a] 
END; 

CurrentDayTime: PUBLIC PROCEDURE RETURNS [PackedTime] = 
BEGIN 

time: TYPE - MACHINE DEPENDENT RECORD Thigh, low: CARDINAL]; 
clock: POINTER TO time = LOOPHOLE[572B] ; 
t: time a clock?; 

RETURN[PackedTime[highbits: t.high, lowbits: t.low]] 
END; 

UnpackDT: PUBLIC PROCEDURE [t: PackedTime] RETURNS [unp: UnpackedTime] = 
BEGIN 

u: UP = @unp; 
day4, day, yr4: CARDINAL; 
month: CARDINAL «- 1; 

IF t = DefaultTime TfO t «- CurrentDayTime[] ; 

[t, u. second] ♦- D i v i deT ime[ t , 60] ; 

[t, u. minute] ♦- Di v ideT ime[t , 60] ; 

[t, u.hour] <- D iv ideT ime[ t , 24] ; 

[t.day4] •- D iv ideT ime[ t , DaysInTourYears J ; 

yr4 *- t . lowb its; 

day4 ♦- day4 + (STirCT day4 FROM 

>= 2*365+31+28 => 3, 

>= 365+31+28 => 2, 

>= 31+28 => 1, 

rNDCASF => 0); 
[day4, day] - Inl i neDef s .DIVM00[day4, 366]; 
u.year ♦* BaseYear + yr4*4 + day 4; 
WHIir clay >= MonthTable[month] DO month ♦- month + 1 CNDLOOP; 



timeconvert.mESA 



24-OCT-77 18:55:07 



Page 2 



u. month ♦• month «• month-1; 

u.day «• day - MonthTable[month]+l; 

insert daylight computation here 
u.dst <- FALSE: 
RETURN 
END; 

InvalidTime: PUBLIC ERROR = CODE; 

PackDT: PUBLIC PROCEDURE [unp: UnpackedTime] RETURNS [t: PackedTime] 
BEGIN 

u: UP = @unp; 

year, month, day, day4, hour, minute, second: INTEGER; 
yr3: [0..3]; 

IF (year <- u.year-BaseYear) >* 176 OR 

(month <- u. month) > = 12 OR 

(day «• u.day) -IN [0. .31] OR 

(hour «• u.hour) >* 24 OR 

(minute «• u. minute) >= 60 OR 

(second «• u. second) >= 60 THEN ERROR InvalidTime; 
yr3 «- year MOD 4; 

IF month = 1 AND day = 29 AND yr3 # 3 THEN ERROR InvalidTime; 
day4 «- yr3*365 + MonthTable[mon th] + day-1; 
IF yr3 # 3 AND month U 2 THEN day4 ♦■ day4-l; 
IF u.dst THEN 

BEGIN day4 ♦- day4 - 1; hour <- hour+23 END; 
t.lowbits «- (year/4)*DaysInFourYears+day4; 
t. highbits ♦- 0; 

t «- AddTime[MultiplyTime[t,24] .hour]; 
t «- AddTime[Mul tiplyTime[t, 60] .minute] ; 
t *• AddTime[Mul tiplyTime[t, 60] .second] ; 
RETURN 
END; 

AppendDayTime: PUBLIC PROCEDURE [s: STRING, unp: UnpackedTime] = 
BEGIN 

u: UP = Qunp; 
p: CARDINAL ♦• s. length; 
m: CARDINAL; 
v/2d: PROCEDURE [v: INTEGER] * 

BEGIN 

CharZero: CARDINAL = L00PH0LE[ '0] ; 

dl, d2: INTEGER; 

[dl, d2] ♦• InlineDefs.DIVMQD[v,10]; 

IF dl # THEN s[p] <~ LOOPHOLE[dl + CharZero. CHARACTER]; 

s[p+l] ♦• LOOPHOLE[d2 + CharZero, CHARACTER]; 

p <- p + 3; 

END; 



O-xxx-00 0:00:00"]; 



m + 1 ENDLOOP; 



StringDef s .AppendString[s, 
w2d[u.day] ; 
m <- u.month*3; 
THROUGH [0. .2] DO 

s[p] <- MonthNames[m] ; p «- p + 1; 
p •- p + 1: 

w2d[u.year MOD 100]; 
w2d[u.hour]; 
w2d[u. minute] ; 
w2d[u. second] ; 
RETURN 
END; 

DayOfWeek: PUBl IC PROCEDURE [t: PackedTime] RETURNS [[0..7)] 
BEGIN 

u: UnpackedTime = UnpackDT[t]; 
day: CARDINAL; 

t ♦- Div ideTime[t, 3600] . quotient; 
t <- D iv i del ime[ t , 24] . quo t ien t ; 
day «- t.lowbits + Star tWeekDay ; 
IT u.dst AND u.hour = THFN day ♦• day+1; 
RfTURN[day MOD 7] 
fND; 
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